Option Explicit
'OҲ ChartEventCls
Public WithEvents myCht As Chart
Private Sub myCht_SeriesChange(ByVal SeriesIndex As Long, ByVal PointIndex As Long)
    MsgBox "ƦC" & SeriesIndex & "n" & PointIndex & "wgQܧFC"
End Sub

'зǼҲ
Dim myChtCls As New ChartEventCls
Sub InitializeChartEvent()
    Set myChtCls.myCht = Worksheets(1).ChartObjects(1).Chart
End Sub
